home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO017.dsk / DEVICES.bas < prev    next >
BASIC Source File  |  2012-02-16  |  954b  |  36 lines
  1. 10  GOSUB 2000
  2. 20  GOSUB 1000
  3. 30  HOME 
  4. 40  PRINT "Device #","Drive","Slot","Type"
  5. 50  FOR I = 0 TO NU
  6. 60  PRINT I,DI(I,1),DI(I,2),DI(I,3)
  7. 70  NEXT 
  8. 200  END 
  9. 1000  REM  actual routine
  10. 1010  DIM DI(14,3)
  11. 1015  REM   store last device accessed in di(0, )
  12. 1020 RD =  PEEK(48944)
  13. 1030  GOSUB 1500
  14. 1040 DI(0,1) = DR:DI(0,2) = SL
  15. 1045  REM  read all other devices
  16. 1050 MX =  PEEK(48945)
  17. 1052 NU = MX +1
  18. 1055 J = 1
  19. 1060  FOR I = MX TO 0  STEP  -1
  20. 1070 RD =  PEEK(48946 +I)
  21. 1080  GOSUB 1500
  22. 1090 DI(J,1) = DR:DI(J,2) = SL:DI(J,3) = TY
  23. 1100 J = J +1
  24. 1110  NEXT 
  25. 1120  RETURN 
  26. 1500  REM  convert rd into dr, sl, and ty
  27. 1510  POKE 959,RD
  28. 1520  CALL 928
  29. 1530 DR =  PEEK(960) +1:SL =  PEEK(961):TY =  PEEK(962)
  30. 1540  RETURN 
  31. 2000  REM  poke m/l routine into memory from $3A0 to $3C2
  32. 2010  FOR I = 928 TO 958
  33. 2020  READ M: POKE I,M
  34. 2030  NEXT 
  35. 2040  RETURN 
  36. 2050  DATA  173,191,3,41,15,141,194,3,173,191,3,74,74,74,74,41,7,141,193,3,173,191,3,10,169,0,42,141,192,3,96